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VCMCi is a virtual machine desisnmed to observe "in vitro" 
the behaviour of ULIS"  interrreters. UCMCI is actually 
"D entirely simulated aim VLISF 10. We  rresent a short 
l descrirtion of the VCMCL machine followed hw the comelete 
listing of the code of a VLISE intermreter,. This 
interrreter incoreorates tine srecial feature for 
tail-recursion function calls. 


Basically VCOMC1 is a lé bits machine. An instruction uses 
ones twor three or four words» and has one» two or three 
orerands, Each orerand is coded on a 4 bits field. 


There are two formats for the instructions ¢ 
3 orerands instructions t 
Lor. code » let operand » 2nd orerand » 3th orerandl 
Y biis 18 .. 412 11 +t a 7 oe 4 3 ee 0 
2 orerands instructions 3 


Lor. code y Lat orerand » 2nd operari] 
nits 15 8 7? t 4 3 "M" 0 


ermeciflfiecstion of the operands 


AX resister O. Holds sometimes the result of come ler 
instructions Ce.d, GET), It is used as inde 
resister 


e 
* 
rd 
s 


* 


Al l4 
AR S. 
A3 ` resister 3, 


AA register 4, 
AS resister Je 


AG 
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Aa VLISF Iintermreter on the VOMOL Machine 


LINK resister 7. 


PC register 8, is the program counter. 
ST register S. Is the stack rointer. 


TST the tor of the stack. 

TTST the tor of the stack after  incrementation of the 
stack Fointer. 

TST- the tor of the stack. The stack rointer is 
decremented after the coaomeutetion of the effective 
address. 


(value) a 14 bits value enclosed in eorenthesis. This value 
is stored in tno wor Wet o Tollowinz the 
instruction, 

(89 . address) the value contained in the location specified, 
Used to denote indirection. The address is stored 
in the word followings the instruction. | 


NIL. the atom ATL itself. 


4 
These operands allow several binds of eddressins i 
—^ direct on resisters AX AL 62 02 AA AN 66 LINK PC ST 


~ indirect on SP 

~ auto-increment on SP amd PC 

- auto-decrement on Sr 

= guto-increment indirect omn PC. 


Terminolosw and notation 

Tli . effectives address of the ist oserand 

re effective address of tne nd arerancd 

r3 effective address of the 3th arerand 

T/ -5 pf? move the content of the effective address v^ 
" into the word of effective address r^'^ 
E v^ Xe p? exchanse bhe contents of the effective 

addresses r' anti p’ 

CCAR v2 the CAR of the effective address r 
(CUR r) the CR of the effective address r 
acti $ act? denotes the overlas of the two actions 


" 
à 
` 
4 
$ 


The instruction set 


Instructions described are onis those used Dou the 
interrreater listed bekloe 

The effective addre sm of the twa or three orerandis are 
computed before the execution of the instructions: excert in 
the case of conditional umes. 


transfers of 


(MOVE ri r2) pa c ph 
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A VLISF Interrreter on the VCMCI Machine 


(EXCH ri r2) r2 feb pl 

CMOVE ri r2 r3) rl ~> r2 & r2 => r3 
(CAR ri r2) (CAR r2) => rl 

CCIR vrl r2) (COR r2) — ri 
(RPLACA ri r2) r2 => (CAR r1? 
(RFLACI ri r2) r2 - (CER rl) | 


(MFUSH ri r3) ri = TST 


Transfers and branches 


(MOVR ri r2) te o ri & TSTe «> PC 
(MOV J rl r2 r2) r2 «> rl & r3 => FC 

è (MOUC ri r2 r3) r2 => rli & 
(CARR ri r2) (CAR r2) => ri & TST- — FC 
(CORR ri r2) (COR 702) rl & TST => PC 
(RPLACAR ri r2) r2 => (CAR ri) & TST => FC 
(RPLACIR rio r2) r2 => (COR r1) & TST- => FC 


Unconditional branches 


, (JUMF r1) ri =t PC 

CJUMPX ri r2) ri + r2 <> PE | 
(CALL. f1) PC -- 4TST & ri => PC 
(RETURN? TST- -» FC 


Corditdonal branches 


(JEQ ri r2 r3) if rl = r2 then r3 -- PCE 
(JNEQ rior r3) if ri # r2 then r3 => PC 
OOJTNIL ri r2) if ri s NIL then r2 - PE- 
(JTNIL. rl r2) if ri d NTL then r2 eb PE 


(JTLIST ri rad sif ri is s pointer on a list 


(JFLIST ri r20 if ri is not s rointer on a 
them r2 -- PC 


then r2 = PC 


E 


E! Other instructions 


CUNCONS rl r2 r3) (CAR ri) => v2 & (COR rd -> 


(CONS ri r3 r3 (n2 oa r3) =r rl 
CBET ri ped’ + (GET rl r2) => AX 


Sumbtanx of the assembler 


which etomic elements sre labels. Tt 

abbreviate instructions which look Like 
Cored osi ore Clahel)) 

into Cored osi opk . label) 

in order to decrease the size of such a list 
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CJITNUME ri r2) if ri is a rointer on s number 
CJFNUMER ri r2) if ri is not a rointer on a number 


9$ if r2 # NIL» r2 er 
CMPOP ri r2) TST- = ri $ if r2 E NIL»: TST~ ecr 


PC => 4TST & r3 -> PC 


then 
List 


r3) 


* 


*TST 


r2 


re 


then r2 


The VLISF simulator hendles lists of UCMCA instructions» 
is  rossible 


PC 


| PC 


in 
to 


-22- 


(FROGN 
(SETQ -INTERFRETER ’( 
$ nmm mne am e aat miee aate sane a Oant hen ry 0th Mme ce wim Sh sie aih oaan anto pane pay ma aima Sat maat aate hatn aap cone Oem aum td tose ot bet mnn ne mma $4 omme Wb SOND sae N Ones À $ 
; VUCHMC 1 $ 
$ -$ 
, 7 
: $ VLISP interpreter 3 
, ;} crm väta aa HA € — ea o de sab rtm ers ento oon sab dom et mt cm aum cUm Pis aus ee te tt —A€————————Ó uam ra —— "19 a — € — [] 
Li binding of arduments for standard functions $ 
$ $ 
$ 1SUBR ? A1 <- value of the ist saradument $ 
; 28URR : A2 “~ value of the 1st arsument ! $ 
; Al z= value of the 2nd argument ! $ 
$ NSUBR $ AL X- list of values of 311 the arguments $ 
i FSUBR ? Al <- list of all the arguments non-evaluated $ 


* TOP-LEVEL function $ 


TOPLEVEL 
(MQUC Al ('TOFLEUELO ., PRINTAL) $ (WHILE T ; 
(CALL . REATO $ (PRINT 'TOFLEVELO $ 
(CALL . EVAL) $ (PRINT $ 
(MOVJ *TST (TOFLEVEL) 6 PRINTA1); (EVAL (REAID)O)0) $ 


$ PRINTAL : because PRINT is a system NSUBR $ 


PRINTAL (CONS Ai Al NIL) 
(JUMP. PRINT) 


P$—-———-—-- ———— —— a -—————- ; 

§ functions of the interpreter j 

$ ————Ó—— —————— —— — ~a g 

$ GETFN ? recosnizes the tyre of the function stored in A2 $ 
$ call ? (MOVJ AG FC . GETFN) i.e. return address in Aó $ 
§ result in AX 3 $ 
$ AX <— 1 if 1SUBR the address of the function is stacked $ 
$ AX x- 2 if 2SUBR . $ 
$ AX <- 3 if NSUBR > ; E s $ 
* AX <= 4 if FSUBR * . ? $ 
$ AX <- S if LAMBDA (C(1var) ses bods eos) is stacked E) 
$ AX Ze 6 if FLAMBDA s 007 is i. s $ 
$ AX <~ 7 if GAMMA GE Bo . $ 
$ don't destroy Al ! $ 


GETFN — (JTLIST A2 . GETFNS) 


the function is an atom 3 
is it an EXPR 7? $ 

no 3 
ves i retry with the new expression } 
is it à standard function ? $ 

no 3 ] 

wes 3 stack the address and return 9 ' 
indirection on the value of the atom } 


(GET A2 ('EXPRO) 

(JTNIL AX . GETFN1) 

(MOUJ 42 AX . GETEN) 
GETFN1 (GET A2 ('TYPFND) 

(JTNIL AX « GETFN3) 

(MOV +TST (KXUVALX C423) A6) 
GETFN3 (CAR A2 42) 

(JUMP , GETEN) 


“a> Ge so ee ee we e ae 


GETFNS the function is a list $ 
Stock (Civar) ses body seed $ 
is it a LAMBDA ? $ 

yes $ value = 5 and return $ 
is it a FLARA ? $ 

yes $ value = 6 and return $ 
is it a GAMMA ? i 

yes $ value = 7 and return 


CUNCONS A2 AX t*TST) ‘ 
CINEQ AX C'LAMBDIAD) . GETENG) 
(MOVJ AX ('5) Ad) 

GETFN6 (JNEQ AX ('FLAMBDA) . GETEN7) 
(MOUJ AX (C6) A6) 

GETFN7  (JNEQ AX (’GAMMA) . GETFNB) 
(MQUJ AX (C'7) AS) 

GETFNS (MOVE TST Ad) 
CMFUSH ^1) 
(MOUC AL A2 , EVAL) 
(MOVE AZ Al TST-) 
(MOUJ A6 TST- . GETFN) 


see c ee wee er chou c 


in others cases j 
re-evaluate the function $ 


*- a 


$ EVAL : ISURKR Al z- the forme to be evaluate 
$ APFFLY $ 2SUER D- the list of values reads 
; 2ote function to arely 


- s ww» 


EVALCAR (CAR Al Al) $ (EVAL (CAR A120) 3 
EVAL CJTLIST AL . EVAL1) i in case of a list 3 

CJTHUME AL TST) $ numbers are not evaluated $ 
QUOTE (CARR AL ALD è the value of an atom is 


its C-value (i.e. its CARD $ 


EVALL CUNCONS Al A2 AL) $5 Al =~ the function» 
AZ “- the list of ardunents $ 
CJEQ AL (QUOTE) > QUOTE? 5 special case for the QUOTE function 3 
(MOUJ A6 PO. GETEN) $5 find the ture of the function 7 


CJUMFX AX (CEVALCAR) (EVAL2) (EULIS) TST- (EUAL3D) CAPFPLYF) CEVAL4))) 
$5 15URR 2SUBE  NSURR FSULER LAMBA FLAMBDA GAMMA 3 
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EVAL2 


EVAL 
EVAL 4 


APPLYC 
APPLY 


AFFLY2 
APPLYG 


APFLYF 


AFPL YI. 


REBING 
REBINI 


RERINI2 


AFPLYN 
BING 


BIND2 


BINT 


RT RK 


UHRIND 
UNE MIL 
UNRIHD2 


, (MPUSH LINK C'MARKER? 2 
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} for the 29UGRS $ 
CUNCONS Ai Ai TTST) 
(CALL... EVAL) 

(EXCH AL TST) 

(CALL « EVALCAR)- Ss evaluste the 2nd arsament, $ 
(HOVE AZ TGT-) 


“a> 


evaluzste the Ist arsument $ 


i evaluation of LAMENA-exeressions $ 

(MOV TST (AFPLYLO) > EULIS) 

i evaluation of GAMMA-exr rege 3 f 

(MOVG TST CAPPLYG) . EULIS 

(CONS AL 6i NIL) $ used bw marring functions $ 


(MOUJ AG PC , GETF 
CJUMPX AX (CCAR) ¢ 
$ 18UER 


N) Po set the tuse of the function ; 
'"ULY2) YST- TST- (WPFELYL) CAPFLYG) COPPLYG) 2) 
2SUBK NSUBRK FSUER LAMBDA FLAMEDA GAMMA $ 


CUNCONG AL 42 Ald 


CCARR AL ALS 
(CAR AL AL) 
(JUME , APPLY) 
(CONS AL AL NIL) 
$ APPLYL must follow ... $ 


5 sdeneroi for LaMBAaA/VFLAWUL AMMA j 
) susroze $ AL Z- list of va) ready $} 
; TST £- ((lvar?) s., bodu ++.) $ 


(UNCONS TST- AZ A3) ; AQ X- lvar» A3 Z— bodu. 


j test of tsil-recursien ; 


CUNEQ (6, TST) (TRE) o APELYN) $ it is not in terminal rosition 
B 


CJNEQ. (R . LINK) A3 . APPLYND it is not a recursive function 


f sreciel winding for tail-recursive function $- 


(JFLIST A2 , REERIÍNI2) ; lars is atomic $ 
(UNCONS 42 A5 A2) ?OAS <- new variable è 
CUNCONS AL (OG . AS) AL) ; farce the new value $ 
(JTL IST 2 , REBINIG) ? variables left * 
CJTNIL 62 . FROGNA1 5 real end of ivar 
£MOUJ (Bo. AR) AL € PROGNA 3 > ? in case of LEXER 


-> ean 


t 


i normal bindins with preservation of the old values ? 


? BPecial mark in stack j 
(JFLIST AZ. BINU2» ` 


(UNCONS AL A4 A19) $ AA Z= next value $ 
(UNCONS A2 AS AD) PAG C- neut variable f} 


(MOVE TST (8 . AGS 54) 
€(MOU.J *£TST AS . RINDA) 
CJTNIL 82 . BINDZI) 
CHOVE TSY (OG , A2) 61) 
(PUSH 62) 

CAPUSH A3 


real end of lvar 5$ 


- 


5 execution of the body of the function 3 


(MOVC LINK ST . FROGMAS 
(MOV Ad PC e UNEINIO 
(RETURNS 


E unbinc the eravious bindinssgs 3 


(MPO AS LINK) 
CONE AS C MARKER) , UNGLINGI) 
(JUMP fé) i 
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$ FROGN ? FSUBRe  EPROGN $ 1SURBR $ 
5 allows to handle the tsil-recursive furictions $ 
FROGNAS (MOVE Ail 43) j internal (FROON 63) 3 
EFROGN 
FROGN (UNCONS Al Ai A2) 5 next element $ 
CJFLIST A2 . EVAL) $ there is one element } 
FROGNI (MOVE FTST A2 . EVAL) 
(UNCONS TST- 61 A2) $ next element $ 
CJTLIST A2 > PROGN1) j it is not the last element 7 
(JUMP . EVAL) P it is the last element i 
» LIST $ FSUBRy EULIS $ iSUBR $ 
LIST 
EVL IS CJFLIST AL TST-) 5 nothing to do $ 
(CONS 42 NIL NIL? ! wrerare the head of the result $ 
(MPUSH A2) $ which is saved in the stack $ 
* A2 is also the address of the 
last CONS-cell $ 
EULIS2  (UNCONS Al Ai +TST> f next element 3 
(MOVE TST A2 . EVAL) § save the remainder and 
evaluate the element $ 
(CONS A2 Al NIL) $5 CONS the value # 
CMPOP AZ Ai) § restore. last and the remainder $ 
ORFLACI A3 A2) 
(JTLIST At , EULIS1) $ list not exhausted ? 
(CDRR AL TST-) 
* LESCAFE $ FSUBR + 
a § allows to force a tail recursion $ 
LESCAPE (MOUJ +TST (WTRX) > PROGN) 
$5 IF 3} FSUER, The most simele conditionnal function $ 
* allows to handle the tail-recursive functions $ 
IF CUNCONS A1 A1 +TST) 
(CALL © EVAL) ; evaluate the predicate $ 
(UNCONS TST- A2 A3) 
(JTNIL AL . PROGNAZ) ? else clauses j 
(MOV AL 62 . EVAL) f} then clause $ 
$ COND $ FSUBR. The most famous CONDitionnal function $ 
5 allows to handle Lhe teil-recursive functions $ 
CONT (MOVE AR 651) 
CONDI (JFLTST A? TST-) ; no more clauses § 
CUNCONS A2 ài +TST) 5 AL <- next clause 3 
€ CUNCONS ^1 Al TST) ; AL X- the predicate j 
T (CALL , EVAL) ° i evaluate it $ 
1 (MPOP AZ A2) 
CJTNIL Al . CONDI) f the Predicate is false 3 
CJFNIL A3 . PROGNAS> 5 evaluate the clause § 
(RETURN) ; tne clause is empty j 
$ GR AND ? FSUER» losical connectors f 
f allows to handle the tail-recursive functions f 
ÜR (UNCONS Al Al AZ) 
CJFLIST A2 . EVAL) * the last element f 
(MOUC +TST A2 . EVAL) 
CJFNIL Ai . FRET) 
(MOU.J AL TST- . OR) 
ANT (JFLIST A1 . TRUE) $ CAND) -> T 3 
ANI CUNCONS Al AL A2) 
CJFLIST A2 . EVAL) $5 the last element $ 
(MOUC *TST AZ . EVAL) 
CJTNIL At . PRET) 
(MOUJ AL TST- . ANDI) 
FRET (MOUR A2 TST-) j ror and return # 
5» WHILE 3 FSUBR $ 
WHILE CMHOVA ATST A1 . WHILE) > stack the whole expression $ 
WHILEL (Cok 6i TST) 
(CALL . FROGN) 
WHILE?  (MOUC AL TST . EVALCAR) $ evaluate the test $ 
CJFNIL Ai e WHILEL) $ it is ready for an other turn $ 
CMOVR A2 TST-) $5 finish $ 
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b E €— ——— ; 
` $ Predicates and searches i 


$ NULL NOT ATOM NUMBP LISTE 3 ASUBR $ 


NULL 

NOT (JTNIL AL . TRUE) 
(MOVR A1 NIL) 

ATOM C(JFLIST 61 . TRUE) 
(MOUR 61 NIL) 

NUMBP CJTNUMB ^1 . TRUE) 
(MOUR 61 NIL) 

LISTF (JTLIST AL , TRUE) 
(MOUR A1 NIL) 


$ EQ NEQ $ 2SUBR $ 


EQ (JEA A1 42 . TRUE) 
(MOUR A1 NIL) 
NEQ (JNEQ AL AZ . TRUE) 


(MOUR A1 NIL) 
$ EQUAL NEQUAL ? 2SUER + 


NEQUAL — (MPUSH . NOT) : 

EQUAL (MOVE AS ST . EQUAL2) $ ererare A6 for fast return $ 
(HOUR AL C'D) 

EQUAL1  (JFLIST AZ . NAN) 


CUNCONS AL Al *TST) 


(UNCONS 42 A2 *TST) 
«CALL, EQUAL2) 


i cdr down A1 $ 


$ cdr down 42 $ 
) recurse on CAR $ 


(MFOF A2 61) 


EQUAL2  (JTLIST Al . EQUAL1) 3) iterate on cor $ 
(JEQ A1 A2 TST-) 


NAN (MOVU ST A6 . FALSE) i fast return ) 


TRUE  (MOVR AL ('T)) 
FALSE | (MOVR Al NIL) 


/$ CAR COR 3 1SUBR ) 


CAR (CARR A1 AD 
CIR (CDRR A1 ALD 


3 GET ! 2SUER ; 


‘GET (GET A2 AL) 
(MOUR AL AX) 


$ MEMO ¢ 2SUBR ; 


MEHQ1 (JEQ (GO . AL) AZ TST-) 
(COR 61 ^1) 
MEMQ (JTLIST Al , MEMQ1) 


$ the list is empty 5 
(RETURN) 


$ MAFC $ 2SURBR, the Position of the arsuments is hon-standard j 


MAFC (EXCH AL A2) 5 Al Z= list of arsuments 
A2 <- function 7 

CJFLIST 41 TST-) $ nothing to da $ 

MAFC1 CUNCONS Al AL +TST) 

(MOYE £TST ^2 . APFLYC) 

(MFOF A2 At) 

CJTLIST A1 . MAPC1) 

(RETURN?) 
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$ MAPCAR :? 2SUBR 3 -26- 


MAFCAR (EXCH Al 62) Ai <- list of arsduments; 


AQ z- function $ 


<> 


(CONS A3 NIL NIL) 
(MOUJ HYST AX . MAPCARZ) 
MAPCARL (MPUSH AZ) 
(UNCONS Ai Ai +TST? 
(MOVE +TST A2 , APPLYC) 
(CONS AZ AL NIL) 
(MPOF 42 A1) 
(RELACI TST- A3) 
MAPCAR2 (JTLIST Ai . MAFCARL) 
(CURR AL TST-) 


next argument $ 
save the function $ 


*- a 


> RELACA RELACI ? 2SURKR $ 


RPLACA (RELACA 42 61). 
(MOUR AL 42) 

RFLACD —(RPLACI! A2 ALD 
(MOUR AL A2) 


$ SETQ : FSURR $ 


SETQ (UNCONS AL +TST A2) 
(UNCONS A2 AL *TST) 
(CALL « EVAL?) 
(MPOP A2 A3) 
(RPLACA AZ ^1) 
CJFLIST A2 TST-) 
(MOVJ AL A2 . SETA) 


stack the name $ 
stack the remainder $ 


evaluate the value $ 


w» e 


set the new value 5$ 
no more courle s; 


ow 


$ SET $ NSUBR» SETQQ : FSUBR $ 


SETQQ 

SET “CUNCONS Al AZ ALD 
CUNCONS AL (@ + 42) AL) 
(JTLIST Ai e SET) 
(MOVER AL (R . AB)? 


3 NEXTL t FSUBR ¢ 
NEXTL. (CAR A2 61) ) A2 5- atom $ 
: (CAR AS 02) f 35 AZ z- its value § 
(UNCONS. 63 AL AS) 
CRELACAR AZ AS) 
§ CONG i 2SUBR $ 


CONS (CONS ad AZ AL) 
(RETURN) ` 


$ REVERSE $t 2SUBR $ 


REVI CUNCONS A9 AS A2? 


CRE TURK) 


> $ end of the SETA ~INTERFRETER $ ) 


P initialisation of the indicators of the standard functions $ 


(MAFC 
(ATOM CAR CIR EPROGN EVAL EVLIS 
LISTF NULL NUMBF) 
"(LAMBDA (X) (FUT X 1 'TYPFFND2) 


MAFC . 
“CAPPLY CONS EQ EQUAL GET MARC MAPCAR 
MEMG NEQ NEQUAL REVERSE RFLACA RPLACTO 
“CLAMBDA (X) (FUT X 2 CTYRFNY)) 


MAFC 
^CFRINT PRINT TERFRI READ SET) 
LAMBDA CX) (PUT X 3 'TYFFN22) 


MAFC 
“CAND COND IF LESCAFE LIST NEXTL OR 
PROGN QUOTE SETQ SETQQ WHILE) 
“CLAMBDA (X) (FUT X 4 “TYPFN) >) 


; ' -INTERFRETER) 
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